home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / recent / mcf4amrc.lha / MCF4AmIRC / Rexx / MCF_Finger.AMIRX < prev    next >
Text File  |  1996-12-14  |  680b  |  11 lines
  1. /* MCF_Finger.AMIRX
  2. // $VER: MCF_Finger.AMIRX 4.9 (23.11.96)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. //  Put this script in Rexx:
  9. \\     It will be used by MCF.AMIRX.
  10. */
  11. ;xsists=showlist('A',AmiTCP)+showlist('V',AmiTCP);if xsists=0 then exit;if ~exists("AmiTCP:bin/Finger") then exit;OPTIONS RESULTS;parse arg MCFenv junk LUser junk;address (MCFenv);open(rslv,'APIPE:AmiTCP:bin/finger ',R);x1=readln(rslv);x2=readln(rslv);close(rslv);x1=strip(x1);x2=strip(x2);"RAW PRIVMSG "LUser" :"x1;"RAW PRIVMSG "LUser" :"x2;exit